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MODULE PASSREAD ~ENUMERATED ( ZTITLE ‘Read an enumerated value’ 
“IDENT = '1-002' ! File: PASREAENU.B32 Edit: $BL1002 


d= 
BEGIN 


Vee ERE A AA AEA RARER EEA E EEE EE 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


ie THIS i echo 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND oor tne 
'® ONLY 4 ACCOR ~ ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 
® 
® 
* 
® 
® 
® 
® 
. 0 ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
' & 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 
*® 
x 
*® 
® 
® 
® 
® 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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2 iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
‘ ix SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
§ 7 eaciieeieiedidiabeueenahemeaienstahine asap diaidbdipinlitebadaeasranieiaiibidemesnieaiiaitenendetiiaiiinn 
2 8 : 
: 0056 
3 b034 FACILITY P is S t 
! : ascal Language Suppor 
3 0052 1 | — 
; SF ABSTRACT: 
3 0035 i This module contains procedures which read an enumerated value 
; 8 $$ from a textfile or a string. 
3 $ ENVIRONMENT: User mode - AST reentrant 
4 0040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
4 004¢ i MODIFIED BY: 
4 004 : 
4 O¢8 ! 1-001 - Original. SBL 1-April-1981 
4 045 ! 1-002 - Use PASS$END_READ. SBL 26-May-1982 
? 0046 le 
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inbo2 UFR Declarations ns ale We-Sep-1966 $2:8tie7 — ERASRILOSRESPASREAENU B82; 1 (25 


RSBTTL ‘Declarations’ 
| PROLOGUE DEFINITIONS: 


oO 
r~ 


REQUIRE "RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 


TABLE OF CONTENTS: 


—OODONAOUSWN Oo” 


PASSREAD_ENUMERATED, ! Read from textfile 
PASSREADY ENUMERATED; ! Read from string 
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EQUATED SYMBOLS: 
NONE 
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NONE 
OWN STORAGE: 
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] 
H § 143 1 ZSBITL 'PASSREAD ENUMERATED = Read an enumerated value from textfile' ‘ 
; 144 1 GLOBAL ROUTINE PASSREAD ENUMERATED ( : 
: 4 145 1 PFV: REF SPASSPFV_FILE VARIABLE, ! File variable ° 
; 5 146 1 PETD: REF VECTOR [, LONG], ! Enumerated type descriptor : 
3 «68 0147 1 ERROR ! Error unwind address : 
; 87 0148 1 = ; 
: BB 0149 1 | ; 
; «BY 0150 1 i++ | ‘ 
; + B12) : FUNCTIONAL DESCRIPTION: ; 
; § 0188 ; | This function reads an enumerated value from the specified textfile : 
; ez aed : and returns it as the function value. | ‘ 
5 44 $128 ! : CALLING SEQUENCE: : 
3 4 b138 i Enumerated.wlu.v = PASSREAD_ENUMERATED (PFV.mr.r , PETD.r.r C, ERROR. ja.r)) | : 
> 99 0160 1 | FORMAL PARAMETERS: : 
: 100 0161 1! : 
; 101 Bes 1 | PFV - The Pascal File Variable (PFV) passed by reference. ‘ 
3 136 Bier : The structure of the PFV is defined in PASPFV.REQ. ; 
: 104 0165 1! PETD - Pascal Enumerated vis Descriptor, passed by reference. : 
> 105 0166 1! The structure of a PETD is as follows: : 
; 106 0167 1! : 
: 107 0168 ; 3 feeceeeeesesosoosooosococeceeccoen + b 
; 108 0169 1! | offset of ASCIC type name { <== PETD : 
2 109 0170 1 { tet TTP TTT TT e 
: 110 0171 1! i count of possible values (n) | : 
: 111 O17¢ 7:  — $unvEsscnesconsesessoesesesoecon} 3 
3; VWe 0175 1! | offset of ASCIC value name 0 | : 
; 113 0174 1 $f tte nnncennnnnennnnnnen ; 
s 114 0175 1! { offset of ASCIC value name 1 |: 
s 115 0176 1! te ee ee eee ee ee ee ee + 
3 «6116 0177 1! — 
: 117 0178 1! te eee ere eee ee ee ee + 
s 118 0179 1! : offset of ASCIC value name n-1; | 
3 119 0180 1 ' peewee eeeeeeeeceecesosesoeccoreca + 
: 120 0181 1: | 
; Yel a 1% The offsets are relative to the address 
s tee 0185 1! of the descriptor (PETD). The names are 
3 Yes 0184 1! counted strings with I-byte counts. It 
: 124 0185 1! is assumed that the compiler has upcased 
3 1$? pis6 ! } all of the strings. | 
: 127 0188 1! ERROR - Optional. If specified, the address to unwind to 
; 128 0189 1! in case of an error. 
5 94 0190 1! 
: 130 0191 1) IMPLICIT INPUTS: | 
3; «131 0138 1! 
: 132 195 1! NONE 
> 133 0194 1 | 
3 «134 0195 1 ! IMPLICIT OUTPUTS: 
s 35 0196 1! 
; 136 0197 1! NONE 
: 137 0198 1! 
3; «4138 0199 1! 


ROUTINE VALUE: 
| 
| 
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1-002 PASSREAD_ENUMERATED - Read an enumerated value 14-Sep-19 4 93529229 PASRTL  SReIPASREAENU. B92; 1 
; 139 1! 
: 1 G 4 : The value of the enumerated value read. 
; 14¢ 0 08 | SIDE EFFECTS: 
3 ite 0 8? : If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
3 146 0 oF ! SIGNALLED ERRORS: 
> 148 0209 1! INVSYNENU = invalid syntax for enumerated value 
: 149 0210 1! AMBVALENU = ‘'string’’ is an ambiguous value for enumerated type ‘'type’’ 
: 120 8 1} ! NOTVALTYP = ‘string’ is not a value of type ‘'type 
; 138 0518 1 ine 
Se 0214 1 
; 154 0215 § BEGIN 
3; 155 b518 
; 156 0217 2 LOCAL 
Ser 0218 § RESULT, ! Result value 
: 158 0219 STRING: REF VECTOR C, BYTEJ, ! Field in Line read 
; 1? 0220 2 STRING_LENGTH, ' Length of STRING 
; 160 0221 2 MATCH_COUNT, ' Count of values matched 
3; «161 bse 2 FCB: REF SPASS$FCB_CONTROL_BLOCK,! File Control block 
; 162 0223 2 PFV_ADDR: VOLATILE, ' Enable argument 
3; 16 0224 2 UNWIND_ACT: VOLATILE, ' Enable argument 
; + 5H § ERROR_ADDR: VOLATILE; ! Enable argument 
: 166 0227 2 BUILTIN 
: 14 0559 § ACTUALCOUNT; ' Count of arguments 
: 169 0230 2 BIND 
; 179 Ose) § TYPE_ENUMERATED = UPLIT BYTE (%CHARCOUNT(‘*-enumerated-'),'-enumerated-'); 
; 17 0933 5 ENABLE 
: A OSee § PASS$SIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 175 0236 2 ‘+ 
; 176 S544 $ Get ERROR parameter, if present. 
: 178 0239 2 
: 4 asco 2 IF ACTUALCOUNT () GEQU 3 
; 181 024g ; ERROR_ADDR = .ERROR; ! Set unwind address 
3 188 0344 PFV_ADDR = PFV CPFVS$R_PFV); ! Set PFV address 
> 185 0246 ; '+ 
: 136 8 rt 4 Validate PFV and get PFV. 
: 188 0249 ; 
: H+ OSes PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
: 191 O25 ‘+ 
; 196 0527 Set unwind action to unlock file. 
: 19% 0985 ; 
; «6195 0256 2 UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
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PASSREAD_ENUMER Read an enumerated 
1 PASSREAD_ENUMERATED 


-1984 01:56:4 AX-11 Bliss-32 V4.0-74 P 
=} 36:4 § ASRE = 3 


Dd 7 
16-Se 
S$ 984 12 PASRTL.SRC JPASREAENU.B32;1 (3 


e 
Read an enumerated value 14- 4 


+ 
Do common initialization. 


ww 


PASSSINIT_READ (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI; FCB); 
RESULT = 0; ! Indicate no value found yet. 


4 
! Call utility routine to find a string that looks Like an enumerated value. 
! If we can't find one, signal an error. 


IF NOT PASSSGET_ENUMERATED (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI; 
STRING, STRING_LENGTH, FCB) 


N 
SPASSIO_ERROR (PASS_INVSYNENU,3,.STRING_ LENGTH, 


3 
STRING CO], .FCB CFCBSL_RECORD_NUMBERJ);  ! Invalid syntax 


+ 
Maximum Length of user string that we look at is 31 characters. 


| 

| 

| 

| 

| 

| 

IF .STRING_LENGTH GTRU 31 
THEN 

STRING_LENGTH = 31; 

STRING = .STRING = 1; ! Offset so that same index can be used for | 

! type-value and user string. 
} 


'¢ 


! Scan through the PETD and look for matches. Upcase user's input and 
check for ambiguous values. 


MATCH_COUNT = 0; 
INCR TDX FROM 1 TO .PETD (1) DO 
BEGIN 


PIPIPEPONIPINPIPININININPINPUNININIPPININININININININININININININNN 2 SS 


WAAR PIPPI NINYINININIDS 2 SS 2 Ss "OO Ooocooowovowo ~m 
FURNSSSSNECRAN LS Seno nrunr-OSmuFe MRO o Oooo we 


AUS WN | O OODNAUES WN O OONAUES WN" OCONOUES WN OOO 


WOO OO OO O00 00 00 09 0 09 09 09 09 SINISE IO AAA AAA AOAO 


NSNAA AE ANNAN AAA ANA WIP DINIPOPUNINPONINUPINONINONPONoNo Nonny 


2 OCAL 
235 TYPE_VAL: REF VECTOR C, BYTE], ' Type value : 
236 7 VAL_LEN; ' Length of vatue string 

$3 98 TYPE VAC = .PETD + .PETD C.IDX+1]; ' Get next value string 

38 99 VAL_CEN = .TYPE_VAL (0); ! Get Length. 
$20 00 

40 01 '¢ 
241 4 ! If user string length is longer than this value, skip this 

seg 0 ' value. Otherwise, see if they match. 

24 04 le 

44 05 

45 06 IF .STRING_LENGTH LEQU .VAL_LEN 

46 07 THEN 
47 08 BEGIN 
248 09 IF (INCR POS FROM 1 TO .STRING_LENGTH DO | 
49 10 BEGIN 

39 V IF TYPE VAL C.POS) NEQ 

52 318 IF (.STRING C.POS) GEQ %C*a') AND 


——— ee aa - :) ‘ae 
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2 PASSREAD_ENUMERATED - Read an enumerated value 14-Sep-1984 12:51:4 PASRTL.SRC PASREAENU. 3 2:1 sf 1- 
‘ " o 1 8 (.STRING C.POS)] LEQ %C‘z") | . 
; 36 9 18 ° «STRING C.POS] = (%C'a’ = XC'A') | : 
: 0318 7 STRING C.POS] ; 
; 258 8 19 7 : 
; 259 0 6 HEN ° 
; 260 0321 6 EXITLOOP 0; ! Mismatch found . 
: 261 Ose 4 END) NEQ 0 ; 
; 6 0 4 THEN ; 
; 6 4 5 BEGIN ; 
: 264 5 2 | : 
: 265 6 "match found. If exact match, fet RESULT, reset . 
; 266 0327 5 ! MATCH_COUNT to 1 and exit the Arch: If it is a partial : 
; 267 0328 5 ' match, set RESULT, increment MATCH_COUNT, ‘on continue. : 
; 268 o362 5 in : 
: $3 o330 2 IF .STRING_LENGTH EQL .VAL_LEN 
; rt 0336 5 THE 3 
3 si¢ 0333 6 BEGIN 
3 sf the 6 
: 74 0335 6 | “Exact match | 
s 2rd 0336 6 
: 276 0337 6 RESULT = -10X; 
> 277 0338 6 MATCH COUNT = 1; | 
: sfe 0339 6 EXITLOOP; 
; e279 0340 5 END; 
: 280 0341 5 RESULT = .IDX; ' Set this result 
3: «281 oee§ 5 MATCH_ COUNT = * MATCH. COUNT + 1; ! Increment count of matches 
; $o¢ 0343 4 END; 
: 28 0344 3 END; 
; 284 0345 3 
; 285 0346 2 END; ! Of INCR Loop 
: 286 0347 2 
: 287 0348 2 + 
; 288 0349 2 i Check for no matches (MATCH_COUNT LSS 1) or ambiguous match 
: 289 0350 § i (MATCH. COUNT GTR 1). 
: 290 0351 i+ 
3 (af Oe26 
3 34 035 IF .MATCH_COUNT NEQ 1 ! Not exactly one match? 
; 0354 THEN 
3 94 0355 BEGIN 
; 295 0356 LOCAL 
3 4 O32e DESCR: BLOCK (8, BYTE]; 
: 29 58 DESCR CDSCS$W_LENGTH) = .STRING_LENGTH; 
: 98 0359 DESCR 4451 SSE = 
; 99 0360 DESCR CDSCS$B_DTYPE] = 0: 
3 00 0361 DESCR CDSCSA_POINTER] = STRING (1); 
; 301 036¢ IF .MATCH_COONT EQL 0 
3 4 036 THEN 
: 0 P 0364 SPASSIO_ERROR (PAS$_NOTVALTYP,3,DESCR, 
3 04 P Beee (IF~.PETD CO] EGL 0 
3 05 P 0366 THE 
F3 4] P 67 TYPE_ENUMERATED 
; P 0368 : 
: 08 P 0369 PETD C 
: 309 0370 4 FCB CFCBSL _RECORD_ RoRGER?) ' Not a value of type | 


Sa = a = , 
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; 310 0371 LSE | 
: 11 P ie SPAS$ #0. ents (PASS — ,3,DESCR, 
3 \§ P 037 (IF D CO) EG 

ae) P 05374 x 

3 14 P 0375 TYPE ENUMERATED 
; 15 P 6 ELSE 

; 1 P 037 -PETD + .PETD (0]) 

: 31 0 78 .FCB CFCBSL_RECORD_NUMBER]); =! Ambiguous value 

; 318 79 END; 
; 35319 0380 

3 ted ‘+ 
; 0388 i; end-of-READ processing. 

; 4 0385 PASSSEND_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCB); 
; 26 0367 RETURN .RESULT = 1; ! Compensate for loop starting at 1 

: 328 0389 1 END; ! End of routine PASSREAD_ENUMERATED 


-TITLE PASSREAD_ENUMERATED Read an enumerated value 
-IDENT \1-002\ | 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


OC 00000 P.AAA: .BYTE 12 F 
20 64 65 74 61 72 65 6D 75 6€ 65 2D 00001 ASCII \-enumerated-\ 3 


TYPE_ENUMERATED= P.AAA 
.EXTRN PASSREAD_ ENUMERATED 
~-EXTRN PASSREADY NDLER 


¥ DAT 

-EXTRN PASSSINIT READ.  OASSSGET ENUMERATED 
-EXTRN PASS$SSIGNAL, PASSK_ INVSYRNENU 

~EXTRN PASSK “NOTVALTYP 

-EXTRN PAS$K— ARBVALENU 
~EXTRN PASSSEND READ 


OFFC 00000 .ENTRY PASSREAD_ENUMERATED, Save R2,R3.R4.R5,R6.- ; 0144 
7 R9,R10,R11 3 
SE 14 C2 90002 suBL2 #20, SP : 
08 AE 7C 8008 CLRQ ERROR_ADDR 3 0215) 
10 AE D4 00008 CLRL = PEV_A : 
6D 0110 CF ODE 900 MOVAL 21$7 (FP) : 
03 6¢ 91 0001 CMPB 5, #3 + 0240 | 
5 1F 0001 BLSSU : 
08 AE 0c AC DO 0001 MOVL ERROR, ERROR_ADDR 3; 0242 
56 04 AC DO OOO1A 18 MOVL . > 0244 
10 Ae 56 D0 001 MOVL R6, PFV_ADDR : 
000000006 00 16 0 JSB PASSSVACIDATE_PFV > 0250 | 
0c 1 DO 000 MOVL #1, UNWIN > 0256 
000000006 : 16 00 C JSB PASSSINIT_READ > 0262 
D4 2 CLRL = RESULT > 0264 
000000006 90 1 00 JSB PASSSGET _ENUMERATED : 0271 
0 0 €8 OOO3A BLBS RO, 2$ : 
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9 AX-11 BLi Legere v4 
PASRTL.SRC 

-56(F CB) 

STRING 

STRING LENGTH 

#PASSK_INVSYNENU, -(SP) 
TRING_LENGTH, #31 

#31, STRING_LENGTH 
TRING 


5 
MATCH_COUNT 
PETD, Re 


i 
4(R2)C1DXI, R2, TYPE_VAL 
(TYPE VAL). VAL_L 
STRING_LENGTH, VAL _LEN 
POS 
8$ 

(POS)CSTRING], #97 

(POS) [STRING], #122 
(POS)CSTRING], R8 

#32, RB 


(POS) CSTRINGJ 


#0, #8, CDOS ETHEE _VALJ, R8 
RO 

9$ 

STRING_LENGTH, POS, 5$ 
i. 

STRING_LENGTH, VAL_LEN 
IDX, RESULT 

#1, MATCH_COUMT 

12$ 

IDX, RESULT 
MATCH_COUNT 

4(R2)> IDX, 4$ 
MATCH_COUNT "1 
STRING_LENGTH, DESCR 
1(R4), DESCR+4 

MATCH. COUNT 

15$ 

-56(F CB) 

(R2) 

13$ 

TYPE ENUMERATED RO 
14$ 

(R2), R2 

R2 


PASREAENU. if 2;1 


; Routine Size: 322 bytes, Routine Base: _PASS$CODE + 000D 


0 


; 329 390 1 
770 391 1 !<BLF/PAGE> 


0 
0 


“ ae 
\ ASSREAD_ENUMER Read an enumerated value 16-Sep AX-11 Bliss-32 V4.0-7 
2 PASSREAD_ENUMERATED = Read an enumerated value 14-Sep 71382 93: 26: 23 PASRTL.SRC PASREAENU. 4 2;1 
08 Ag oF OEO 148: PUSHAB DESCR 
g po E PUSHL 
7E 006 F A E MOVZBL #PASSK_NOTVALTYP, -(SP) 
iS 11 E BRB 
c8 A D EB 15$: PUSHL -56(F CB) 
§¢ Dd E TSTL (R2) 
1 8 F BNEQ 16 
50 FEFD F 9E F MOVAB TYPE_ENUMERATED, RO 
9 00 8 F PUSHL R 
11 F9 BRB 17$ 
52 8s CO OOOFB 16$: ADDL2 (R2), R2 
pp BOF PUSHL 
08 Ag F 1 17$: PUSHAB ae 
7E 006 gF BR thi mOvIBL OF #PASSK Gotlonkn (SP) 
000000006 00 05 re 00103 18$: CALLS #5, PASSSSIGNAL - 
000000006 4 16 00118 19$: JSB PASSSEND_READ 
0 9 9€ 0011 MOVAB =(R9), RO 
04 0011B RET 
50 04 QO11C 298: CLRL RO 
04 OO11E RET 
0000 OO11F 21$:  .WORD Save nothing 
50 08 AC 00 00121 MOVL B(AP), RO 
50 04 AO 00 00125 MOVL 4(RO). RO 
F4 AO 9F 00129 PUSHAB ERROR_ADDR 
F8 AO 9F 0012C PUSHAB UNWIND ACT 
FC AO 9F 0012F PUSHAB PFV_ADDR 
03 DD 00132 PUSHL #3 
5E DD 001 PUSHL SP 
7E 04 AC 7D 00136 MOVaQ 4 (AP) 
00000000G 00 03 FB OO13A CALLS #3, PASSS1O- HANDLER 
04 00141 RET 
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PASSREAD_ENUMER Read an enumerated value 1-52 -1984 74 AX-11 Bliss-32 V4.0-74 Page 1 
ti PASSREADY ENUMERATED = Read an enumerated value 12: et 7 9}: 3:4 : PASRTL. SRCIPASREAENU.B 2;1 ’ (4 


wr 


: 92 1 ZSBTTL ‘'PASSREADV SREADY END - peed ” enumerated value from string’ 

5 95 1 GLOBAL a's HH Ry; wd og ti 

5 94 «1 s1° rie. ! String descriptor 

3 5 95 1 " ReF evECTOR be “LONG i Enumerated type descriptor 

3 0396 1 i Error unwind address 
4 8 9 1 S } 
; 8 98 1 
; 9 99 1 !e4 | 
; re ret : } FUNCTIONAL DESCRIPTION: 

: +g 04 ¢ 1! This function reads an enumerated value from the specified string 

3 Z be : and returns it as the function value. 

; <2 B06 : CALLING SEQUENCE: 

: t4 94 44 : Enumerated.wl.v = PASSREADV_ENUMERATED (STRING.mt.ds , PETD.rr.r C, ERROR. ja.rJ) 

: 49 0409 1 ! FORMAL PARAMETERS: 

: 350 0410 1! 
3 3) 0411 +1! STRING - The string to read from, passed as a class S 
3 26 pele 1! (assumed) descriptor. fhe Length and pointer | 
3 ts Rel? : } are updated to reflect the unread string. 

3 55 0415 1! PETD - Pascal Enumerated Type Descriptor, passed by reference. 

; 356 0416 1! The structure of a PETD is as foi leus: 
3; 357 0417 1! 
: 358 0418 7! peeewene nce ce nen en eee enenseeeee- + 
; 359 0419 1! H offset of ASCIC type name i: <== PETD 

3 0 0420 1! $oeowecceeseeoesocosoccoeooscoeeccon + 

; 1 0421 1! H count of possible values (n) : 

: g 04 : [ji =~ <- .  @nsijac/,jenionmiaanapaamaitlt 
: 36 0425 1! | offset of ASCIC value name 0 | 

> 364 04246 1! + = = $emmmmermmmmeomeeeoeeeeeseeoee= 

; 365 0425 1! : offset of ASCIC value name 1 | 

3 0426 1! ge e@nweeweecneeeesweeee e@ = + 

: 367 0427 1! oes 

: 368 0428 1! @eeceeeweneeceeeeenweeeee @ + | 
; 369 0429 1! | offset of ASCIC value name nti 
3 70 04 0 1 ' Peewee eeeeeeeceeeeoeeeeoeeeeseos 

3 Sri 0431 1! 

3; 37 0432 1! The offsets are relative to the address 
3; 37 0433 1! of the descriptor (PETD). The names are 
3 374 0434 1! counted strings with be te counts. It 
3; 375 435 1! is assumed that the compiler has upcased 
3 76 bee : all of the strings. 
3 | 
; 378 0438 1! ERROR - Optional. If specified, the address to unwind to 
; 379 0439 1! in case of an error. 
: 380 neee 1! 
: 381 41 1 ! IMPLICIT INPUTS: 

; 38 0442 1! 
; 38 0445 1! NONE 
; «384 444 1! 
; 385 445 1 ! IMPLICIT OUTPUTS: 

: Rg tf yi 

3; (SS 447 1! NONE 

; 8 0448 1! 


J 7 
PASSREAD_ENUMER Read an enumerated value Jp~se0" 1386 91:36:60 AX-11 BLi ises -32 V rat Page 11) 
1-002 PASSREADV_ENUMERATED - Read an enumerated value 14-Se 4 12:51:4 PASRILY SRC PASRE vhenule 2;1 (4) | 
: 9 49 1 ROUTINE VALUE: 
; 390 4 3 1 | 
: 4! ri 1 : 7 The value of the enumerated value read. 
; 3 4 i 1 | SIDE EFFECTS: 
3; 394 454 1! 
; 395 455 1! NONE 
3 4 bea$ 1 i 
; 39 457 1 | SIGNALLED ERRORS: | 
; 398 0458 1 | 
; 399 459 1: NONE 
: 400 460 1! | 
; 401 461 1 jee 
; 40 Be88 1 
: 40 046 BEGIN 
; 404 0464 
; 405 0465 LOCAL ; 
: 406 46 PFV: peeere FILE_VARIABLE, ' Pascal File Variable 
; 407 46 R i Result value | 
: 408 0468 ARG_ tTgt: VECTOR (3, LONG), i Argument List | 
; 409 0469 PFV “ADDR: VOLATILE, ! Enable argument | 
3; 410 0470 UNWIND ACT: VOLATILE, i Enable argument 
3; (411 0471 ERROR > RDOR: VOLATILE; i Enable argument 
F a6 047 
3; (41 047 BUILTIN 
3 4146 0474 ACTUALCOUNT; ! Count of arguments | 
3; 415 0475 
: 416 0476 NABLE 
3 rit4 oh 4 2 PASSSIO_HANDLER (PFV_ADDR, UNWIND ACT, ERROR_ADDR); ! Enable error handler | 
3; 419 0479 '¢ 
; 420 0480 ! Get ERROR parameter, if present. 
: 421 0481 !~ 
; 4 ¢ 048 
; $s 048 IF ACTUALCOUNT () GEQU 3 
: 4624 0484 
3 ryt tH ERROR_ADDR = .ERROR; ! Set unwind address 
; £3 0487 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
: 428 0488 
: 429 0489 '¢ 
3; 6 0490 ' Set up ARG_LIST. 
3 $3! 0491 !e 
; 3 be98 ARG_LIST (0) = 2; ! Two arguments 
; 4 * 
; 434 0494 ARG-LIST (1) = PFV CPFVSR_PFV); ! PFV address : | 
; $33 B08 ARG_LIST (2) = PETD (0); ! Enumerated type descriptor 
3: 437 a9? '¢ 
; 438 498 ! Call PAS$$D0_kKEADV to do the work, giving it the address of 
: 439 eh i PAS$SREAD_ENUMERATED to call. 
ia at. * 
: GG 0309 PASSS$DO_READV (PFV CPFVSR_PFV], .STRING, ARG_LIST, PASSREAD_ENUMERATED; 
3 44 5 RESOLT); 
: 664 504 
3 6665 505 RETURN .RESULT; 
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PASSREAD_ENUMER Read an enumerated value 16-Sep-1984 01:56:4 AX-11 Bliss-32 V4.0-74 
ati PASSREADY. ENUMERATED - Read an enumerated value 1 ~30071 382 93:29:49 PASRTL.SRCIPASREAENU.B 231 


; 446 5 
; 44 $208 ¢ END; ! End of routine PASSREADV_ENUMERATED 


-EXTRN PASS$SDO_READV 


005¢ 00000 .ENTRY PASSREADV_ENUMERATED, Save R2,R3,R4,R6 
5E 4 25 99008 SUBL2  # , 
E D4 000 CLRL ERROR_ADDR 
ces 
88 6C BF iit CMPB (AP), #3 
04 iF 90012 BLSSU 
6E o¢ AC DO 00014 MOVL ERROR, ERROR_ADDR 
08 AE 18 OA 44 0018 1$ MOVAB PFV, PFV_ADDR 
OC AE 0 p 001D MOVL #2, A 
10 AE 18 AE 3 0021 MOVAB PFV, ARG_LIST+4 
14 AE 08 aC 00 00026 MOVL PETD, ARG_LIST+8 
54 FESF CF 9E 0002B MOVAB PASSREAD_ENUMERATED, R4 
53 o¢ AE 9E 00030 MOVAB ARG_LIST> R3 
56 18 = AE 3 00054 MOVAB FV; R 
52 04 AC 00 000 MOVL STRING, R2 
000000006 00 16 0003C JSB PAS$$D0_READV 
04 0004¢ RET 
0000 000435 2$ -WORD Save nothing 
50 08 AC 00 00045 MOVL (AP), RO 
50 04 Ad DO 00049 MOVL 4 (RO), RO 
D8 AO OF 0004D PUSHAB ERROR ADDR 
DC AO OF 00050 PUSHAB UNWIND ACT 
EO AO 9F 0005 PUSHAB PFV_ADBR 
03 DD 00056 PUSHL #3 
5E Dp 00058 PUSHL SP 
7E 04 AC 7D 0005A MOV. 4(AP), -(SP) 
000000006 00 03 FB 0005E CALLS #3, PAS$$IO_HANDLER 
04 00045 RET 


; Routine Size: 102 bytes, Routine Base: _PASS$CODE + 014F 


0 1 
G4G 0 1 !<BLF/PAGE> 


: 468 
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PASSREAD_ ENUMER Read an enumerated value ibesop-19 4 4 9}: 56: 49 AX-11 Bliss -32 v4.0 Page 13) PA‘ 
PASSREADV_ENUMERATED = Read an enumerated value 14-Sep-1984 74 PASRTL. SRC PASREAENU. * 2;1 (5) | 
s 651 0510 1 END ! End of module PASSREAD_ENUMERATED | 
= § 0511 +1 
4 0512 0 ELUDOM 


| 
PSECT SUMMARY | 
Name Bytes Attributes 


PASSCODE 437 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; et oo” Mr re” lites’. ike 9 ~ -aeeeengip Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 4 Q 581 00:01.0 
; ~$255$DUA28: CPASRTL .OBJJPASLIB.L32;1 427 99 2 33 00:00.4 
3 COMMAND QUALIFIERS 

; FLSSEPCAECR MEE SOLE EOE T EM, -OPT RE EE PMPTRACE A LO. 15S 1 PRONE AE IED SOR LOI PRONE REND MSRC$:PASREAENU/UPDATE=(ENHS$: PASREAENU 
: Size 424 code + 13 data byes 

3; Run Time: 00:10.6 

3 apsed Tim 00:35.7 

: Lines/CPU Min: ¢ § 

3; Lexemes/CPU-Min: 1516 

3 me Used: 134 pages 

; Compilation Complete 
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